VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "SQLInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"Fields"
Attribute VB_Ext_KEY = "Member1" ,"Groups"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private mvarFields As Fields
Private mvarGroups As Groups


Public Property Get Groups() As Groups
    If mvarGroups Is Nothing Then
        Set mvarGroups = New Groups
    End If


    Set Groups = mvarGroups
End Property


Public Property Set Groups(vData As Groups)
    Set mvarGroups = vData
End Property



Public Property Get Fields() As Fields
    If mvarFields Is Nothing Then
        Set mvarFields = New Fields
    End If


    Set Fields = mvarFields
End Property


Public Property Set Fields(vData As Fields)
    Set mvarFields = vData
End Property
Private Sub Class_Terminate()
  Set mvarGroups = Nothing
    Set mvarFields = Nothing
End Sub



